72 REM 64 NOTEPAD PATCH #1
73 REM SAVE AND LOAD WINDOWS
74 REM DIGITAL TIME DISPLAY
75 REM
76 PRINT"WAIT...":MEM=50636:A=51268:FORI=0TO419:READ BY
77 IF BY >255 THEN PRINT"ERROR IN LINE:"PEEK(63)+PEEK(64)*256:END
78 POKE MEM+I,BY:CS=CS+BY:NEXT
79 IF CS <> 49979 THEN PRINT"CHECKSUM BAD, CHECK ALL DATA.":END
80 POKE A,76:POKE A+1,0:POKE A+2,198:POKE 51287,236
81 PRINT:PRINT"OK, SET THE TIME."
82 INPUT"  HOURS";T(1):IFT(1)>12THEN82
83 INPUT"MINUTES";T(2):IFT(2)>59THEN83
84 FORI=1TO3:H=INT(T(I)/10):L=T(I)-10*H:T(I)=16*H+L:NEXT
85 C=56587:POKEC+4,PEEK(C+4)AND127
86 FORI=0TO3:POKEC-I,T(I+1):NEXT
87 DATA 173,11,221,162,0,72,41,16,160,2,208,12,169,186
88 DATA 157,182,7,185,9,221,232,72,41,240,74,74,74,74
89 DATA 24,105,176,157,182,7,232,104,41,15,24,105,176,157
90 DATA 182,7,232,136,16,220,173,8,221,96,32,204,197,32
91 DATA 11,202,165,197,201,3,240,7,201,4,240,3,76,71
92 DATA 200,72,169,0,133,253,133,198,133,157,141,109,199,169
93 DATA 54,133,1,32,59,201,32,117,201,32,16,201,162,35
94 DATA 32,23,199,104,201,4,240,17,162,0,32,152,198,169
95 DATA 1,133,185,169,0,32,213,255,76,89,198,162,10,32
96 DATA 152,198,160,186,132,254,162,0,160,189,169,253,32,216
97 DATA 255,144,4,201,5,240,45,32,59,201,169,8,32,180
98 DATA 255,169,111,133,185,32,150,255,32,165,255,201,13,240
99 DATA 6,32,210,255,76,110,198,32,171,255,162,20,32,23
100 DATA 199,32,228,255,240,251,201,13,208,247,32,204,255,32
101 DATA 16,201,32,141,201,76,49,200,32,23,199,164,204,240
102 DATA 8,164,211,177,209,9,128,145,209,32,225,255,208,5
103 DATA 104,104,76,143,198,32,228,255,240,229,201,13,240,41
104 DATA 201,20,240,70,174,109,199,224,14,240,214,201,127,176
105 DATA 210,201,32,144,206,201,34,240,202,172,109,199,153,112
106 DATA 199,238,109,199,32,210,255,32,59,201,76,155,198,173
107 DATA 109,199,240,196,24,105,2,162,110,160,199,32,189,255
108 DATA 169,8,133,186,32,59,201,169,13,32,210,255,169,29
109 DATA 32,210,255,96,174,109,199,240,146,206,109,199,162,70
110 DATA 32,59,201,32,23,199,76,155,198,189,35,199,240,6
111 DATA 32,210,255,232,208,245,96,29,76,79,65,68,58,32
112 DATA 78,46,0,29,83,65,86,69,58,32,78,46,0,13
113 DATA 29,80,82,69,83,83,32,82,69,84,85,82,78,0
114 DATA 13,29,32,32,32,32,32,32,32,32,32,18,78,79
115 DATA 84,69,80,65,68,32,87,79,82,75,32,83,67,82
116 DATA 69,69,78,146,13,13,0,157,32,157,0,0,78,46